﻿Public Class frmDemSoLuongHSTheoLop

    Private Sub frmDemSoLuongHSTheoLop_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim ds As New List(Of LopDTO)
        Dim lopBUS As New LopBUS()
        ds = lopBUS.DemSoHSTheoLop()

        dgvDSCN.Rows.Clear()

        For Each l As LopDTO In ds
            dgvDSCN.Rows.Add(l.TENLOP, l.SOLUONGHS)
        Next
    End Sub

    
End Class